home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-ROM Collection / Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso / cactus / 33 / progs / utilities / apfelmaennchen.gfa (.txt) < prev    next >
GFA-BASIC Atari  |  1989-06-25  |  2KB  |  88 lines
  1. REM AUS SKYHIGH-MAILBOX KREFELD am 22.12.1988
  2. REM From: agnus@aragon.UUCP (Matthias Zepf)
  3. REM Newsgroups: sub.sys.ibm,sub.sys.amiga,sub.sys.st,stgt.amiga,stgt.atari
  4. REM Subject: Apfelmaennchen / GFA Basic
  5. REM Message-ID: <780@aragon.UUCP>
  6. REM Date: 13 Dec 88 03:47:06 GMT
  7. REM Distribution: sub
  8. REM Organization: aragon, Sindelfingen, West Germany
  9. REM Lines: 111
  10. REM
  11. REM *******************************************************
  12. REM ** Mandelbrot - Apfelmaennchen - Berechnungsprogramm **
  13. REM ** ----------   --------------   ------------------- **
  14. REM **                                                   **
  15. REM ** (C) 1989 by Matthias Zepf,  AMIGA  GFA-Basic 3.0  **
  16. REM **             Leonberg, den 12.12.88                **
  17. REM **             Version 1.0                           **
  18. REM ** Das Programm darf zu nichtkommerziellen Verwen-   **
  19. REM ** dung verbreitet werden.                           **
  20. REM *******************************************************
  21. REM
  22. MAT XCPY 1,0,0,320,256,5,0
  23. VSETCOLOR 0,0,1,320,255,512,&H11408,1
  24. TITLEW #0,"Apfelmaennchen (C) by Matthias Zepf"
  25. ON MENU MESSAGE GOSUB ende
  26. SETCOLOR 0,0,0,0
  27. FOR i#=0 TO 15
  28.   SETCOLOR i#+1,15,i#,0
  29. NEXT i#
  30. FOR i#=0 TO 14
  31.   SETCOLOR i#+17,15-i#,15-i#,i#
  32. NEXT i#
  33. WHILE xm#>=xa#
  34.   INPUT "xmin -> ",xm#
  35.   INPUT "xmax -> ",xa#
  36. WEND
  37. WHILE ym#>=ya#
  38.   INPUT "ymin -> ",ym#
  39.   INPUT "ymax -> ",ya#
  40. WEND
  41. INPUT "Tiefe? ",ti#
  42. DO
  43.   INPUT "Breite? ",br#
  44.   EXIT IF (br#>10) AND (br#<321)
  45. LOOP
  46. DO
  47.   INPUT "Hoehe? ",ho#
  48.   EXIT IF (ho#>10) AND (ho#<257)
  49. LOOP
  50. xst#=160-br#/2
  51. yst#=128-ho#/2
  52. xp#=xst#
  53. yp#=yst#
  54. CLS
  55. FOR y#=ym# TO ya# STEP (ya#-ym#)/ho#
  56.   FOR x#=xm# TO xa# STEP (xa#-xm#)/br#
  57.     xw#=0
  58.     yw#=0
  59.     COLOR 1
  60.     PLOT xp#,yp#
  61.     FOR t#=1 TO ti#
  62.       nxw#=xw#*xw#-yw#*yw#+x#
  63.       nyw#=2*xw#*yw#+y#
  64.       xw#=nxw#
  65.       yw#=nyw#
  66.       ON MENU
  67.       EXIT IF xw#*xw#+yw#*yw#>4
  68.     NEXT t#
  69.     IF xw#*xw#+yw#*yw#>4 THEN
  70.       GOTO a500
  71.     ENDIF
  72.     COLOR 0
  73.     PLOT xp#,yp#
  74.     GOTO a600
  75.   a500:
  76.     COLOR (t# MOD 31)+1
  77.     PLOT xp#,yp#
  78.   a600:
  79.     xp#=xp#+1
  80.   NEXT x#
  81.   yp#=yp#+1
  82.   xp#=xst#
  83. NEXT y#
  84. END
  85. PROCEDURE ende
  86.   END
  87. RETURN
  88.